← Index
NYTProf Performance Profile   
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 17:10:45 2013
Reported on Tue Oct 15 17:12:56 2013

Filename(eval 1129)[/usr/share/perl/5.10/CGI.pm:869]
StatementsExecuted 16 statements in 33µs
Eval Invoked At/usr/share/perl/5.10/CGI.pm line 869
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
22236µs169µsCGI::::_name_and_path_from_envCGI::_name_and_path_from_env
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1
# spent 169µs (36+133) within CGI::_name_and_path_from_env which was called 2 times, avg 85µs/call: # once (24µs+123µs) by CGI::path_info at line 832 of CGI.pm # once (12µs+11µs) by CGI::script_name at line 6 of (eval 1131)[CGI.pm:869]
package CGI; sub _name_and_path_from_env {
221µs my $self = shift;
322µs my $script_name = $ENV{SCRIPT_NAME} || '';
421µs my $path_info = $ENV{PATH_INFO} || '';
528µs2105µs my $uri = $self->request_uri || '';
# spent 104µs making 1 call to CGI::AUTOLOAD # spent 1µs making 1 call to CGI::request_uri
6
726µs21µs $uri =~ s/\?.*//s;
# spent 1µs making 2 calls to CGI::CORE:subst, avg 700ns/call
825µs224µs $uri = unescape($uri);
# spent 24µs making 2 calls to CGI::Util::unescape, avg 12µs/call
9
1021µs if ($uri ne "$script_name$path_info") {
11 my $script_name_pattern = quotemeta($script_name);
12 my $path_info_pattern = quotemeta($path_info);
13 $script_name_pattern =~ s{(?:\\/)+}{/+}g;
14 $path_info_pattern =~ s{(?:\\/)+}{/+}g;
15
16 if ($uri =~ /^($script_name_pattern)($path_info_pattern)$/s) {
17 # REQUEST_URI and SCRIPT_NAME . PATH_INFO only differ by the
18 # numer of consecutive slashes, so we can extract the info from
19 # REQUEST_URI:
20 ($script_name, $path_info) = ($1, $2);
21 }
22 }
2327µs return ($script_name,$path_info);
24}
25
26;